home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 016 / herc.arc / GRCIRC.C < prev    next >
Encoding:
C/C++ Source or Header  |  1986-03-21  |  573 b   |  32 lines
  1.  
  2. #define LINT_ARGS
  3. #include <math.h>
  4.  
  5. extern float a_r;
  6. extern int grset(int, int);
  7.  
  8.  
  9. void grcirc(x1, y1, rad)
  10. unsigned x1, y1;
  11. long rad;
  12. {
  13.     unsigned i, j, k, r, x;
  14.  
  15.     r = rad*.75;
  16.     rad *= rad;
  17.     for(k = 0; k <= r; k++) {
  18.         x = (sqrt((double)(rad - k*k)));
  19.         i = a_r * x;
  20.         grset(x1+k, y1+i);
  21.         grset(x1-k, y1+i);
  22.         grset(x1+k, y1-i);
  23.         grset(x1-k, y1-i);
  24.   
  25.         j = a_r * k;
  26.         grset(x1+x, y1+j);
  27.         grset(x1-x, y1+j);
  28.         grset(x1+x, y1-j);
  29.         grset(x1-x, y1-j);
  30.     }
  31. }
  32.